home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b4.d64
/
solution3.15
< prev
next >
Wrap
Text File
|
2007-02-28
|
268b
|
10 lines
0010 //RANDOMIZE // NOT NEEDED WITH CBM COMAL
0020 DIM WORD$ OF 3, CH1$ OF 1, CH2$ OF 1, CH3$ OF 1
0030 REPEAT
0040 CH1$:=CHR$(RND(65,67))
0050 CH2$:=CHR$(RND(65,67))
0060 CH3$:=CHR$(RND(65,67))
0070 WORD$:=CH1$+CH2$+CH3$
0080 PRINT WORD$;" ";
0090 UNTIL WORD$="CAB"